home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS064.dsk / REGULAR WITHDRAWALS.bas < prev    next >
BASIC Source File  |  2012-02-16  |  537b  |  19 lines
  1. 9  HOME 
  2. 10  PRINT " REGULAR WITHDRAWALS FROM AN INVESTMENT"
  3. 20  PRINT 
  4. 30  INPUT " INITIAL INVESTMENT";P
  5. 31  PRINT 
  6. 35  INPUT " NOMINAL INTREST RATE";I
  7. 36  PRINT 
  8. 40  INPUT " NUMBER OF WITHDRAWALS PER YEAR";N
  9. 41  PRINT 
  10. 50  INPUT " NUMBER OF YEARS,MONTHS ";YO,M
  11. 51 Y = (12 *YO +M)/12
  12. 52  PRINT 
  13. 55 I = I/N/100
  14. 60 R = P *(I/((1 +I) ^(N *Y) -1) +I)
  15. 70  PRINT " AMOUNT OF EACH WITHDRAWAL = $"; INT(R *100 +.5)/100
  16. 75  PRINT : PRINT : PRINT 
  17. 80  INPUT " WOULD YOU LIKE TO CONTINUE ? ";N$
  18. 81  IF N$ = "Y" GOTO 9
  19. 90  PRINT  CHR$(4);"RUN MENU"